home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / GIMP 2.6.8 / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / gimp-labels.scm < prev    next >
Text File  |  2009-12-15  |  7KB  |  192 lines
  1. ; GIMP - The GNU Image Manipulation Program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ;
  4. ; www.gimp.org web labels
  5. ; Copyright (c) 1997 Adrian Likins
  6. ; aklikins@eos.ncsu.edu
  7. ;
  8. ; based on a idea by jtl (Jens  Lautenbacher)
  9. ; and improved by jtl
  10. ;
  11. ; This program is free software; you can redistribute it and/or modify
  12. ; it under the terms of the GNU General Public License as published by
  13. ; the Free Software Foundation; either version 2 of the License, or
  14. ; (at your option) any later version.
  15. ;
  16. ; This program is distributed in the hope that it will be useful,
  17. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19. ; GNU General Public License for more details.
  20. ;
  21. ; You should have received a copy of the GNU General Public License
  22. ; along with this program; if not, write to the Free Software
  23. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  24. ;
  25. ;  **NOTE**  This fonts use some very common fonts, that are typically
  26. ;  bitmap fonts on most installations. If you want better quality versions
  27. ;  you need to grab the urw font package form www.gimp.org/fonts.html
  28. ;  and install as indicated. This will replace the some current bitmap fonts
  29. ;  with higher quality vector fonts. This is how the actual www.gimp.org
  30. ;  logos were created.
  31. ;
  32. ; ************************************************************************
  33. ; Changed on Feb 4, 1999 by Piet van Oostrum <piet@cs.uu.nl>
  34. ; For use with GIMP 1.1.
  35. ; All calls to gimp-text-* have been converted to use the *-fontname form.
  36. ; The corresponding parameters have been replaced by an SF-FONT parameter.
  37. ; ************************************************************************
  38.  
  39.  
  40. (define (script-fu-labels-gimp-org text font font-size text-color
  41.                                    shadow-color bg-color rm-bg index
  42.                                    num-colors color-thresh yoff xoff height)
  43.   (let* (
  44.         (img (car (gimp-image-new 125 height RGB)))
  45.         (text-layer (car (gimp-text-fontname img -1 xoff yoff text 0
  46.                                     TRUE font-size PIXELS
  47.                                     font)))
  48.         (bg-layer (car (gimp-layer-new  img 125 height
  49.                                         RGB-IMAGE "Background" 100 NORMAL-MODE)))
  50.         (shadow-layer (car (gimp-layer-copy text-layer TRUE)))
  51.         )
  52.  
  53.     (gimp-context-push)
  54.  
  55.     (gimp-image-undo-disable img)
  56.     (gimp-image-add-layer img shadow-layer 1)
  57.     (gimp-image-add-layer img bg-layer 2)
  58.  
  59.     (gimp-layer-set-lock-alpha text-layer TRUE)
  60.     (gimp-layer-set-lock-alpha shadow-layer TRUE)
  61.  
  62.     (gimp-context-set-background text-color)
  63.     (gimp-edit-fill text-layer BACKGROUND-FILL)
  64.  
  65.     (gimp-context-set-background bg-color)
  66.     (gimp-edit-fill bg-layer BACKGROUND-FILL)
  67.  
  68.     (gimp-context-set-background shadow-color)
  69.     (gimp-edit-fill shadow-layer BACKGROUND-FILL)
  70.     (gimp-layer-translate shadow-layer 1 1)
  71.  
  72.     (set! text-layer (car (gimp-image-flatten img)))
  73.     (gimp-layer-add-alpha text-layer)
  74.  
  75.     (if (= rm-bg TRUE)
  76.         (begin
  77.           (gimp-by-color-select text-layer bg-color
  78.                                 color-thresh CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
  79.           (gimp-edit-clear text-layer)
  80.           (gimp-selection-none img)
  81.         )
  82.     )
  83.  
  84.     (if (= index TRUE)
  85.         (gimp-image-convert-indexed img FS-DITHER MAKE-PALETTE num-colors
  86.                                     FALSE FALSE "")
  87.     )
  88.  
  89.     (gimp-image-undo-enable img)
  90.     (gimp-display-new img)
  91.  
  92.     (gimp-context-pop)
  93.   )
  94. )
  95.  
  96.  
  97. ;;;(define (script-fu-tube-button-label-gimp-org text rm-bg index)
  98. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 14 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 8 0 30))
  99. ;;;
  100. ;;;(define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  101. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 12 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 7 0 24))
  102. ;;;
  103. ;;;(define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  104. ;;;  (script-fu-labels-gimp-org text "nimbus sans" 10 "medium" "r" "normal" '(151 177 192) '(0 0 0) '(255 255 255) rm-bg index 15 1 6 0 18))
  105. ;;;
  106.  
  107. (define (script-fu-tube-button-label-gimp-org text rm-bg index)
  108.   (script-fu-labels-gimp-org text "helvetica" 14 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30)
  109. )
  110.  
  111. (define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
  112.   (script-fu-labels-gimp-org text "helvetica" 12 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24)
  113. )
  114.  
  115. (define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
  116.   (script-fu-labels-gimp-org text "helvetica" 10 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18)
  117. )
  118.  
  119.  
  120. (script-fu-register "script-fu-tube-button-label-gimp-org"
  121.   _"_Tube Button Label..."
  122.   _"Create an image of a Tube Button Label using the gimp.org webpage theme"
  123.   "Adrian Likins & Jens Lautenbacher"
  124.   "Adrian Likins & Jens Lautenbacher"
  125.   "1997"
  126.   ""
  127.   SF-STRING _"Text"              "?"
  128.   SF-TOGGLE _"Remove background" TRUE
  129.   SF-TOGGLE _"Index image"       TRUE
  130. )
  131.  
  132. (script-fu-menu-register "script-fu-tube-button-label-gimp-org"
  133.                          "<Image>/File/Create/Web Page Themes/Classic.Gimp.Org")
  134.  
  135.  
  136. (script-fu-register "script-fu-tube-subbutton-label-gimp-org"
  137.   _"T_ube Sub-Button Label..."
  138.   _"Create an image of a second level Tube Button Label using the gimp.org webpage theme"
  139.   "Adrian Likins & Jens Lautenbacher"
  140.   "Adrian Likins & Jens Lautenbacher"
  141.   "1997"
  142.   ""
  143.   SF-STRING _"Text"              "?"
  144.   SF-TOGGLE _"Remove background" TRUE
  145.   SF-TOGGLE _"Index image"       TRUE
  146. )
  147.  
  148. (script-fu-menu-register "script-fu-tube-subbutton-label-gimp-org"
  149.                          "<Image>/File/Create/Web Page Themes/Classic.Gimp.Org")
  150.  
  151.  
  152. (script-fu-register "script-fu-tube-subsubbutton-label-gimp-org"
  153.   _"Tub_e Sub-Sub-Button Label..."
  154.   _"Create an image of a third level Tube Button Label using the gimp.org webpage theme"
  155.   "Adrian Likins & Jens Lautenbacher"
  156.   "Adrian Likins & Jens Lautenbacher"
  157.   "1997"
  158.   ""
  159.   SF-STRING _"Text"              "?"
  160.   SF-TOGGLE _"Remove background" TRUE
  161.   SF-TOGGLE _"Index image"       TRUE
  162. )
  163.  
  164. (script-fu-menu-register "script-fu-tube-subsubbutton-label-gimp-org"
  165.                          "<Image>/File/Create/Web Page Themes/Classic.Gimp.Org")
  166.  
  167.  
  168. (script-fu-register "script-fu-labels-gimp-org"
  169.   _"_General Tube Labels..."
  170.   _"Create an image of a Tube Button Label Header using the gimp.org webpage theme"
  171.   "Adrian Likins & Jens Lautenbacher"
  172.   "Adrian Likins & Jens Lautenbacher"
  173.   "1997"
  174.   ""
  175.   SF-STRING     _"Text"               "Gimp.Org"
  176.   SF-FONT       _"Font"               "Sans"
  177.   SF-ADJUSTMENT _"Font size (pixels)" '(18 2 1000 1 10 0 1)
  178.   SF-COLOR      _"Text color"         '(130 165 235)
  179.   SF-COLOR      _"Shadow color"       "black"
  180.   SF-COLOR      _"Background color"   "white"
  181.   SF-TOGGLE     _"Remove background"  TRUE
  182.   SF-TOGGLE     _"Index image"        TRUE
  183.   SF-ADJUSTMENT _"Number of colors"   '(15 2 255 1 10 0 1)
  184.   SF-ADJUSTMENT _"Select-by-color threshold" '(1 1 256 1 10 0 1)
  185.   SF-ADJUSTMENT _"Offset X"           '(8 0 50 1 10 0 1)
  186.   SF-ADJUSTMENT _"Offset Y"           '(0 0 50 1 10 0 1)
  187.   SF-ADJUSTMENT _"Height"             '(30 2 1000 1 10 0 1)
  188. )
  189.  
  190. (script-fu-menu-register "script-fu-labels-gimp-org"
  191.                          "<Image>/File/Create/Web Page Themes/Classic.Gimp.Org")
  192.